Questions 7, 8, 9, 10. Transportation behavior.
Q7. What types of public transportation do you regularly use?
# subset question data, rename columns, gather into single column
q7_df <- df %>%
select(CaseID, PPGENDER, PPAGE, ppagecat, PPETHM, PPINCIMP, PPEDUC, PPEDUCAT,
work, PPWORK, marital, PPMARIT, PPMSACAT, ppreg9, PPSTATEN, PPHOUSE, PPRENT, PPNET,
Q7_1:Q7_7, Q7_otherText, weight) %>%
rename(Bus = Q7_1, Carpool = Q7_2, Subway = Q7_3, Train = Q7_4,
Taxi = Q7_5, Airplane = Q7_6, Other = Q7_7) %>%
gather(Q7_q, Q7_r, Bus:Other, na.rm = T) %>%
mutate(Q7_q = as.factor(Q7_q))
# select only Yes responses
q7_df <- q7_df[(q7_df$Q7_r)=='Yes', ]
# survey design
options(digits = 4)
options(survey.lonely.psu = "adjust")
des7 <- svydesign(ids = ~1, weights = ~weight, data = q7_df[is.na(q7_df$weight)==F, ])
Gender, age, ethnicity, income, education, work
# weighted data frame
q7 <- data.frame(svytable(~Q7_q + Q7_r + PPGENDER + ppagecat + PPETHM + PPINCIMP +
PPEDUC + PPEDUCAT + work + PPWORK, des7, round = T))
# plot templates
title <- ggtitle("What types of public transportation do you regularly use?")
## main plot
p <- ggplot(q7, aes(Q7_q, weight = Freq)) + ptext
p + geom_bar() + title

## plot2: exclude 'Other' column
p2 <- ggplot(q7[!(q7$Q7_q)=='Other', ], aes(Q7_q, weight = Freq)) + ptext
# by gender
p2 + geom_bar() + aes(PPGENDER, fill = PPGENDER) + facet_wrap(~Q7_q) + ggtitle("By gender")

# age boxplot
svyboxplot(PPAGE~Q7_q, des7, main = "Age boxplot per response")

# by age group
p2 + geom_bar() + aes(ppagecat, fill = ppagecat) + facet_wrap(~Q7_q) + ggtitle("By age group")

p2 + geom_bar(position = "fill") + aes(ppagecat, fill = Q7_q)

# by ethnic group
p + geom_bar() + aes(PPETHM, fill = PPETHM) + facet_wrap(~Q7_q) + ggtitle("By ethnic group") +
ptext2

p + geom_bar(position = "fill") + aes(PPETHM, fill = Q7_q)

p + geom_bar() + aes(fill = Q7_q) + facet_wrap(~PPETHM) + ggtitle("By ethnic group")

p + geom_bar(position = "fill") + aes(fill = PPETHM)

# by income
p + geom_bar() + aes(PPINCIMP, fill = PPINCIMP) + facet_wrap(~Q7_q) + ggtitle("By income") +
ptext2

p + geom_bar(position = "fill") + aes(PPINCIMP, fill = Q7_q)

# by education
p + geom_bar() + aes(PPEDUCAT, fill = PPEDUCAT) + facet_wrap(~Q7_q) + ggtitle("By education")

p + geom_bar(position = "fill") + aes(PPEDUCAT, fill = Q7_q)

p + geom_bar(position = "fill") + aes(PPEDUC, fill = Q7_q)

p + geom_bar() + aes(fill = Q7_q) + facet_wrap(~PPEDUCAT) + ggtitle("By education")

p + geom_bar(position = "fill") + aes(fill = PPEDUCAT)

# by work status
p + geom_bar() + aes(work, fill = work) + facet_wrap(~Q7_q) + ggtitle("By employment status")

p + geom_bar(position = "fill") + aes(PPWORK, fill = Q7_q) + ggtitle("By employment status")

Marital status, metro status, region, state of residency, house type, housing status, internet availability
# update weighted data frame
q7.2 <- data.frame(svytable(~Q7_q + Q7_r + marital + PPMARIT + PPMSACAT + ppreg9 +
PPSTATEN + PPHOUSE + PPRENT + PPNET, des7, round = T))
# restate plots
p3 <- ggplot(q7.2, aes(Q7_q, weight = Freq)) + ptext
p4 <- ggplot(q7.2[!(q7.2$Q7_q)=='Other', ], aes(Q7_q, weight = Freq)) + ptext
# by marital status
p3 + geom_bar() + aes(marital, fill = marital) + facet_wrap(~Q7_q) + ggtitle("By marital status")

p3 + geom_bar(position = "fill") + aes(marital, fill = Q7_q)

p3 + geom_bar() + aes(PPMARIT, fill = PPMARIT) + facet_wrap(~Q7_q)

p3 + geom_bar() + aes(PPMARIT, fill = Q7_q) + ggtitle("By marital status")

# by metro status
p3 + geom_bar() + aes(PPMSACAT, fill = PPMSACAT) + facet_wrap(~Q7_q) + ggtitle("By metro status")

p3 + geom_bar(position = "stack") + aes(fill = PPMSACAT)

p3 + geom_bar() + aes(fill = PPMSACAT) + facet_wrap(~PPMSACAT)

# by region
p3 + geom_bar(position = 'fill') + aes(fill = ppreg9) + ggtitle("Responses by US region")

p3 + geom_bar(position = 'fill') + aes(ppreg9, fill = Q7_q) + ggtitle("US regions by response")

# by state
p3 + geom_bar() + aes(PPSTATEN, fill = Q7_q) + coord_flip() + ggtitle("By state")

p3 + geom_bar(position = 'fill') + aes(PPSTATEN, fill = Q7_q) + coord_flip() + ggtitle("By state")

# by house type
p3 + geom_bar() + aes(fill = PPHOUSE) + ggtitle("By house type")

p3 + geom_bar(position = 'fill') + aes(fill = PPHOUSE)

p3 + geom_bar() + aes(PPHOUSE, fill = PPHOUSE) + facet_wrap(~Q7_q) + ptext2

# by housing status
# by internet availability
p3 + geom_bar(position = "fill") + aes(fill = PPNET) + ggtitle("Internet status")

p3 + geom_bar(position = 'fill') + aes(PPNET, fill = Q7_q) + ggtitle("Internet status")

Q8. For what types of activities do you regularly use public transportation?
# subset question data, rename columns, gather into single column
q8_df <- df %>%
select(CaseID, PPGENDER, PPAGE, ppagecat, PPETHM, PPINCIMP, PPEDUC, PPEDUCAT,
work, PPWORK, marital, PPMARIT, PPMSACAT, ppreg9, PPSTATEN, PPHOUSE, PPRENT, PPNET,
Q8_1:Q8_6, weight) %>%
rename(Work = Q8_1, School = Q8_2, Shopping = Q8_3, Visiting_people = Q8_4,
Recreation = Q8_5, Other = Q8_6) %>%
gather(Q8_q, Q8_r, Work:Other, na.rm = T) %>%
mutate(Q8_q = as.factor(Q8_q))
# select only Yes responses
q8_df <- q8_df[q8_df$Q8_r == 'Yes', ]
# survey design
options(digits = 4)
options(survey.lonely.psu = "adjust")
des8 <- svydesign(ids = ~1, weights = ~weight, data = q8_df[is.na(q8_df$weight)==F, ])
Gender, age, ethnicity, income, education
# weighted data frame
q8 <- data.frame(svytable(~Q8_q + Q8_r + PPGENDER + ppagecat + PPETHM + PPINCIMP +
PPEDUC + PPEDUCAT + work + PPWORK, des8, round = T))
# plot templates
title <- ggtitle("For what types of activities do you regularly use public transportation?")
## main plot
p <- ggplot(q8, aes(Q8_q, weight = Freq)) + ptext
p + geom_bar() + title

## plot2: exclude 'Other' column
p2 <- ggplot(q8[!(q8$Q8_q)=='Other', ], aes(Q8_q, weight = Freq)) + ptext
# by gender
p2 + geom_bar() + aes(PPGENDER, fill = PPGENDER) + facet_wrap(~Q8_q) + ggtitle("By gender")

# age boxplot
svyboxplot(PPAGE~Q8_q, des8, main = "Age boxplot per response")

# by age group
p2 + geom_bar() + aes(ppagecat, fill = ppagecat) + facet_wrap(~Q8_q) + ggtitle("By age group")

p2 + geom_bar(position = "fill") + aes(ppagecat, fill = Q8_q)

# by ethnic group
p + geom_bar() + aes(PPETHM, fill = PPETHM) + facet_wrap(~Q8_q) + ggtitle("By ethnic group") +
ptext2

p + geom_bar(position = "fill") + aes(PPETHM, fill = Q8_q)

p + geom_bar() + aes(fill = Q8_q) + facet_wrap(~PPETHM) + ggtitle("By ethnic group")

p + geom_bar(position = "fill") + aes(fill = PPETHM)

# by income
p + geom_bar() + aes(PPINCIMP, fill = PPINCIMP) + facet_wrap(~Q8_q) + ggtitle("By income") +
ptext2

p + geom_bar(position = "fill") + aes(PPINCIMP, fill = Q8_q)

# by education
p + geom_bar() + aes(PPEDUCAT, fill = PPEDUCAT) + facet_wrap(~Q8_q) + ggtitle("By education")

p + geom_bar(position = "fill") + aes(PPEDUCAT, fill = Q8_q)

p + geom_bar(position = "fill") + aes(PPEDUC, fill = Q8_q)

p + geom_bar() + aes(fill = Q8_q) + facet_wrap(~PPEDUCAT) + ggtitle("By education")

p + geom_bar(position = "fill") + aes(fill = PPEDUCAT)

# by work status
p + geom_bar() + aes(work, fill = work) + facet_wrap(~Q8_q) + ggtitle("By employment status")

p + geom_bar(position = "fill") + aes(PPWORK, fill = Q8_q) + ggtitle("By employment status")

Marital status, metro status, region, state of residency, house type, housing status, internet availability
# weighted data frame
q8.2 <- data.frame(svytable(~Q8_q + Q8_r + work + marital + PPMARIT + PPMSACAT + ppreg9 +
PPSTATEN + PPHOUSE + PPRENT + PPNET, des8, round = T))
# restate plots
p3 <- ggplot(q8.2, aes(Q8_q, weight = Freq)) + ptext
p4 <- ggplot(q8.2[!(q8.2$Q8_q)=='Other', ], aes(Q8_q, weight = Freq)) + ptext
# by marital status
p3 + geom_bar() + aes(marital, fill = marital) + facet_wrap(~Q8_q) + ggtitle("By marital status")

p3 + geom_bar(position = "fill") + aes(marital, fill = Q8_q)

p3 + geom_bar() + aes(PPMARIT, fill = PPMARIT) + facet_wrap(~Q8_q)

p3 + geom_bar() + aes(PPMARIT, fill = Q8_q) + ggtitle("By marital status")

# by metro status
p3 + geom_bar() + aes(PPMSACAT, fill = PPMSACAT) + facet_wrap(~Q8_q) + ggtitle("By metro status")

p3 + geom_bar(position = "stack") + aes(fill = PPMSACAT)

p3 + geom_bar() + aes(fill = PPMSACAT) + facet_wrap(~PPMSACAT)

# by region
p3 + geom_bar(position = 'fill') + aes(fill = ppreg9) + ggtitle("Responses by US region")

p3 + geom_bar(position = 'fill') + aes(ppreg9, fill = Q8_q) + ggtitle("US regions by response")

# by state
p3 + geom_bar() + aes(PPSTATEN, fill = Q8_q) + coord_flip() + ggtitle("By state")

p3 + geom_bar(position = 'fill') + aes(PPSTATEN, fill = Q8_q) + coord_flip() + ggtitle("By state")

# by house type
p3 + geom_bar() + aes(fill = PPHOUSE) + ggtitle("By house type")

p3 + geom_bar(position = 'fill') + aes(fill = PPHOUSE)

p3 + geom_bar() + aes(PPHOUSE, fill = PPHOUSE) + facet_wrap(~Q8_q) + ptext2

# by housing status
# by internet availability
p3 + geom_bar(position = "fill") + aes(fill = PPNET) + ggtitle("Internet status")

p3 + geom_bar(position = 'fill') + aes(PPNET, fill = Q8_q) + ggtitle("Internet status")

Q9. Do other members of your household regularly use public transportation?
Ethnicity, income, metro status, region, state, house type, housing status
# weighted data frame
q9 <- data.frame(svytable(~Q9 + PPETHM + PPINCIMP + PPMSACAT + ppreg9 +
PPSTATEN + PPHOUSE + PPRENT, des, round = T))
# plot templates
title <- ggtitle("Do other members of your household regularly use public transportation?")
## main plot
p <- ggplot(q9, aes(Q9, weight = Freq)) + ptext
p + geom_bar() + title

## plot2: exclude 'Don_t know' column
p2 <- ggplot(q9[!(q9$Q9)=='Don_t know', ], aes(Q9, weight = Freq)) + ptext
# by ethnic group
p2 + geom_bar() + aes(fill = PPETHM) + ggtitle("By ethnic group") + ptext2

p2 + geom_bar(position = "fill") + aes(PPETHM, fill = Q9)

p2 + geom_bar() + aes(fill = Q9) + facet_wrap(~PPETHM) + ggtitle("By ethnic group")

p2 + geom_bar(position = "fill") + aes(fill = PPETHM)

# by income
p2 + geom_bar() + aes(fill = PPINCIMP) + ggtitle("By income") + ptext2

p2 + geom_bar(position = "fill") + aes(PPINCIMP, fill = Q9)

# by metro status
p2 + geom_bar() + aes(fill = PPMSACAT) + ggtitle("By metro status")

p2 + geom_bar(position = "stack") + aes(PPMSACAT, fill = Q9)

# by region
p2 + geom_bar(position = 'fill') + aes(fill = ppreg9) + ggtitle("Responses by US region")

p2 + geom_bar(position = 'fill') + aes(ppreg9, fill = Q9) + ggtitle("US regions by response")

# by state
p2 + geom_bar() + aes(PPSTATEN, fill = Q9) + coord_flip() + ggtitle("By state")

p2 + geom_bar(position = 'fill') + aes(PPSTATEN, fill = Q9) + coord_flip() + ggtitle("By state")

# by house type
p2 + geom_bar() + aes(fill = PPHOUSE) + ggtitle("By housing")

p2 + geom_bar(position = 'fill') + aes(fill = PPHOUSE)

p2 + geom_bar() + aes(PPHOUSE, fill = Q9) + ptext2

# by housing status
Q10. What types of public transportation do other members of your household regularly use?
# subset question data, rename columns, gather into single column
q10_df <- df %>%
select(CaseID, PPGENDER, PPAGE, ppagecat, PPETHM, PPINCIMP, PPEDUC, PPEDUCAT,
work, PPWORK, marital, PPMARIT, PPMSACAT, ppreg9, PPSTATEN, PPHOUSE, PPRENT, PPNET,
Q10_1:Q10_8, weight) %>%
rename(Bus = Q10_1, Carpool = Q10_2, Subway = Q10_3, Train = Q10_4,
Taxi = Q10_5, Airplane = Q10_6, Don_t_know = Q10_7, Other = Q10_8) %>%
gather(Q10_q, Q10_r, Bus:Other, na.rm = T) %>%
mutate(Q10_q = as.factor(Q10_q))
# select only Yes responses
q10_df <- q10_df[q10_df$Q10_r == 'Yes', ]
# survey design
options(digits = 4)
options(survey.lonely.psu = "adjust")
des10 <- svydesign(ids = ~1, weights = ~weight, data = q10_df[is.na(q10_df$weight)==F, ])
Gender, age, ethnicity, income, education, work
# weighted data frame
q10 <- data.frame(svytable(~Q10_q + Q10_r + PPGENDER + ppagecat + PPETHM + PPINCIMP +
PPEDUC + PPEDUCAT + work + PPWORK, des10, round = T))
# plot templates
title <- ggtitle("What types of public transportation do other members of your household regularly use?")
## main plot
p <- ggplot(q10, aes(Q10_q, weight = Freq)) + ptext
p + geom_bar() + title

## plot2: exclude 'Don_t know' column
p2 <- ggplot(q10[!(q10$Q10_q)=='Don_t_know', ], aes(Q10_q, weight = Freq)) + ptext
# by gender
p2 + geom_bar() + aes(PPGENDER, fill = PPGENDER) + facet_wrap(~Q10_q) + ggtitle("By gender")

# by age group
p2 + geom_bar() + aes(ppagecat, fill = ppagecat) + facet_wrap(~Q10_q) + ggtitle("By age group")

p2 + geom_bar(position = "fill") + aes(ppagecat, fill = Q10_q)

# by ethnic group
p + geom_bar() + aes(PPETHM, fill = PPETHM) + facet_wrap(~Q10_q) + ggtitle("By ethnic group") +
ptext2

p + geom_bar(position = "fill") + aes(PPETHM, fill = Q10_q)

p + geom_bar() + aes(fill = Q10_q) + facet_wrap(~PPETHM) + ggtitle("By ethnic group")

p + geom_bar(position = "fill") + aes(fill = PPETHM)

# by income
p + geom_bar() + aes(PPINCIMP, fill = PPINCIMP) + facet_wrap(~Q10_q) + ggtitle("By income") +
ptext2

p + geom_bar(position = "fill") + aes(PPINCIMP, fill = Q10_q)

# by education
p + geom_bar() + aes(PPEDUCAT, fill = PPEDUCAT) + facet_wrap(~Q10_q) + ggtitle("By education")

p + geom_bar(position = "fill") + aes(PPEDUCAT, fill = Q10_q)

p + geom_bar(position = "fill") + aes(PPEDUC, fill = Q10_q)

p + geom_bar() + aes(fill = Q10_q) + facet_wrap(~PPEDUCAT) + ggtitle("By education")

p + geom_bar(position = "fill") + aes(fill = PPEDUCAT)

# by work status
p + geom_bar() + aes(work, fill = work) + facet_wrap(~Q10_q) + ggtitle("By employment status")

p + geom_bar(position = "fill") + aes(PPWORK, fill = Q10_q) + ggtitle("By employment status")

Marital status, metro status, region, state of residency, house type, housing status, internet availability
# update weighted data frame
q10.2 <- data.frame(svytable(~Q10_q + Q10_r + marital + PPMARIT + PPMSACAT + ppreg9 +
PPSTATEN + PPHOUSE + PPRENT + PPNET, des10, round = T))
# restate plots
p3 <- ggplot(q10.2, aes(Q10_q, weight = Freq)) + ptext
p4 <- ggplot(q10.2[!(q10.2$Q10_q)=='Don_t_know', ], aes(Q10_q, weight = Freq)) + ptext
# by marital status
p3 + geom_bar() + aes(marital, fill = marital) + facet_wrap(~Q10_q) + ggtitle("By marital status")

p3 + geom_bar(position = 'fill') + aes(marital, fill = Q10_q)

p3 + geom_bar() + aes(PPMARIT, fill = PPMARIT) + facet_wrap(~Q10_q)

p3 + geom_bar() + aes(PPMARIT, fill = Q10_q) + ggtitle("By marital status")

# by metro status
p3 + geom_bar() + aes(PPMSACAT, fill = PPMSACAT) + facet_wrap(~Q10_q) + ggtitle("By metro status")

p3 + geom_bar(position = 'stack') + aes(fill = PPMSACAT)

p3 + geom_bar() + aes(fill = PPMSACAT) + facet_wrap(~PPMSACAT)

# by region
p3 + geom_bar(position = 'fill') + aes(fill = ppreg9) + ggtitle("Responses by US region")

p3 + geom_bar(position = 'fill') + aes(ppreg9, fill = Q10_q) + ggtitle("US regions by response")

# by state
p3 + geom_bar() + aes(PPSTATEN, fill = Q10_q) + coord_flip() + ggtitle("By state")

p3 + geom_bar(position = 'fill') + aes(PPSTATEN, fill = Q10_q) + coord_flip() + ggtitle("By state")

# by house type
p3 + geom_bar() + aes(fill = PPHOUSE) + ggtitle("By housing")

p3 + geom_bar(position = 'fill') + aes(fill = PPHOUSE)

p3 + geom_bar() + aes(PPHOUSE, fill = PPHOUSE) + facet_wrap(~Q10_q) + ptext2

# by housing status
# by internet availability
p3 + geom_bar(position = 'fill') + aes(fill = PPNET) + ggtitle("Internet status")

p3 + geom_bar(position = 'fill') + aes(PPNET, fill = Q10_q) + ggtitle("Internet status")

LS0tCnRpdGxlOiAnQmVoYXZpb3IgcGFydCAxOiBUcmFuc3BvcnRhdGlvbicKb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6CiAgICB0b2M6IHllcwogICAgdG9jX2RlcHRoOiAyCiAgaHRtbF9kb2N1bWVudDoKICAgIGZpZ19oZWlnaHQ6IDQKICAgIGZpZ193aWR0aDogNgogICAga2VlcF9tZDogeWVzCiAgICB0b2M6IHllcwogICAgdG9jX2RlcHRoOiAyCi0tLQoKUXVlc3Rpb25zIDcsIDgsIDksIDEwLgpUcmFuc3BvcnRhdGlvbiBiZWhhdmlvci4KCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQojIyBTZXR1cC4Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBULCBjYWNoZSA9IFQsIGNhY2hlLmNvbW1lbnRzID0gRiwgd2FybmluZyA9IEYsIG1lc3NhZ2UgPSBGLCBzaXplID0gInNtYWxsIikKcm0obGlzdCA9IGxzKGFsbC5uYW1lcyA9IFQpKQpsaWJyYXJ5KHJtYXJrZG93bik7IGxpYnJhcnkoa25pdHIpOyBsaWJyYXJ5KGdyaWRFeHRyYSkKbGlicmFyeSh0aWR5cik7IGxpYnJhcnkoZHBseXIpOyBsaWJyYXJ5KGdncGxvdDIpOyBsaWJyYXJ5KHN1cnZleSkKYGBgCgpgYGB7ciBsb2FkLWRhdGEsIGluY2x1ZGU9Rn0KIyMgTG9hZCBkYXRhLgpsb2FkKCJ+L2dpdC9mbHUtc3VydmV5L2RhdGEvY2xlYW5pbmcyLlJEYXRhIikKbG9hZCgifi9naXQvZmx1LXN1cnZleS9kYXRhL3JlY29kaW5nLlJEYXRhIikgICMgbG9hZCBkYXRhcgpkZiA8LSBkYXRhciAgIyByZWNvZGVkIHZhcmlhYmxlcwpgYGAKCmBgYHtyIGdyb3VwLWRhdGEsIGluY2x1ZGU9Rn0KIyMgUmVncm91cCB2YXJpYWJsZXMuCiMgaW5jb21lCmluY29tZS5tYXAgPC0gYyhyZXAoInVuZGVyICQxMGsiLCAzKSwgcmVwKCIkMTBrIHRvICQyNWsiLCA0KSwKICAgICAgICAgICAgICAgIHJlcCgiJDI1ayB0byAkNTBrIiwgNCksIHJlcCgiJDUwayB0byAkNzVrIiwgMiksCiAgICAgICAgICAgICAgICByZXAoIiQ3NWsgdG8gJDEwMGsiLCAyKSwgcmVwKCIkMTAwayB0byAkMTUwayIsIDIpLAogICAgICAgICAgICAgICAgcmVwKCJvdmVyICQxNTBrIiwgMikpCmRmJGluY29tZSA8LSBjb2RlKGRhdGFyJFBQSU5DSU1QLCBpbmNvbWUubWFwLCAidW5kZXIgJDEwayIpCmluY29tZS5sYWIgPC0gYygidW5kZXIgJDEwayIsICIkMTBrIHRvICQyNWsiLCAiJDI1ayB0byAkNTBrIiwKICAgICAgICAgICAgICAgICIkNTBrIHRvICQ3NWsiLCAiJDc1ayB0byAkMTAwayIsICIkMTAwayB0byAkMTUwayIsCiAgICAgICAgICAgICAgICAib3ZlciAkMTUwayIpCmRmJGluY29tZSA8LSBmYWN0b3IoZGYkaW5jb21lLCBsZXZlbHMgPSBpbmNvbWUubGFiKQoKIyBtYXJpdGFsIHN0YXVzCm1hcml0YWwubWFwIDwtIGMoInNpbmdsZSIsICJwYXJ0bmVyZWQiLCAicGFydG5lcmVkIiwgInNpbmdsZSIsICJzaW5nbGUiLCAic2luZ2xlIikKZGYkbWFyaXRhbCA8LSBjb2RlKGRhdGFmJFBQTUFSSVQsIG1hcml0YWwubWFwLCAic2luZ2xlIikKCiMgd29yayBzdGF0dXMKd29yay5tYXAgPC0gYyhyZXAoInVuZW1wbG95ZWQiLCA1KSwKICAgICAgICAgICAgICByZXAoImVtcGxveWVkIiwgMikpCmRmJHdvcmsgPC0gY29kZShkYXRhZiRQUFdPUkssIHdvcmsubWFwLCAidW5lbXBsb3llZCIpCmBgYAoKYGBge3IgZGVzLXN1cnZleX0KIyMgQ3JlYXRlIHN1cnZleSBvYmplY3QuCm9wdGlvbnMoZGlnaXRzID0gNCkKb3B0aW9ucyhzdXJ2ZXkubG9uZWx5LnBzdSA9ICJhZGp1c3QiKQoKZGVzIDwtIHN2eWRlc2lnbihpZHMgPSB+MSwgd2VpZ2h0cyA9IH53ZWlnaHQsIGRhdGEgPSBkZltpcy5uYShkZiR3ZWlnaHQpPT1GLCBdKQpgYGAKCmBgYHtyIHBsb3QtdGVtcCwgaW5jbHVkZT1GfQojIyBDcmVhdGUgZ2dwbG90IHRlbXBsYXRlcy4KcHRleHQgPC0gdGhlbWUoYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSByZWwoMC45KSksCiAgICAgICAgICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gNDUsIGhqdXN0ID0gMSkpCnB0ZXh0MiA8LSBwdGV4dCArIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF9ibGFuaygpKQpgYGAKCgoKIyMgUTcuIFdoYXQgdHlwZXMgb2YgcHVibGljIHRyYW5zcG9ydGF0aW9uIGRvIHlvdSByZWd1bGFybHkgdXNlPwoKYGBge3IgcTctZGF0YX0KIyBzdWJzZXQgcXVlc3Rpb24gZGF0YSwgcmVuYW1lIGNvbHVtbnMsIGdhdGhlciBpbnRvIHNpbmdsZSBjb2x1bW4KcTdfZGYgPC0gZGYgJT4lCiAgc2VsZWN0KENhc2VJRCwgUFBHRU5ERVIsIFBQQUdFLCBwcGFnZWNhdCwgUFBFVEhNLCBQUElOQ0lNUCwgUFBFRFVDLCBQUEVEVUNBVCwKICAgICAgICAgd29yaywgUFBXT1JLLCBtYXJpdGFsLCBQUE1BUklULCBQUE1TQUNBVCwgcHByZWc5LCBQUFNUQVRFTiwgUFBIT1VTRSwgUFBSRU5ULCBQUE5FVCwKICAgICAgICAgUTdfMTpRN183LCBRN19vdGhlclRleHQsIHdlaWdodCkgJT4lCiAgcmVuYW1lKEJ1cyA9IFE3XzEsIENhcnBvb2wgPSBRN18yLCBTdWJ3YXkgPSBRN18zLCBUcmFpbiA9IFE3XzQsCiAgICAgICAgIFRheGkgPSBRN181LCBBaXJwbGFuZSA9IFE3XzYsIE90aGVyID0gUTdfNykgJT4lCiAgZ2F0aGVyKFE3X3EsIFE3X3IsIEJ1czpPdGhlciwgbmEucm0gPSBUKSAlPiUKICBtdXRhdGUoUTdfcSA9IGFzLmZhY3RvcihRN19xKSkKCiMgc2VsZWN0IG9ubHkgWWVzIHJlc3BvbnNlcwpxN19kZiA8LSBxN19kZlsocTdfZGYkUTdfcik9PSdZZXMnLCBdCgojIHN1cnZleSBkZXNpZ24Kb3B0aW9ucyhkaWdpdHMgPSA0KQpvcHRpb25zKHN1cnZleS5sb25lbHkucHN1ID0gImFkanVzdCIpCmRlczcgPC0gc3Z5ZGVzaWduKGlkcyA9IH4xLCB3ZWlnaHRzID0gfndlaWdodCwgZGF0YSA9IHE3X2RmW2lzLm5hKHE3X2RmJHdlaWdodCk9PUYsIF0pCgpgYGAKCiMjIyBHZW5kZXIsIGFnZSwgZXRobmljaXR5LCBpbmNvbWUsIGVkdWNhdGlvbiwgd29yawoKYGBge3IgcTctcGxvdC0xfQojIHdlaWdodGVkIGRhdGEgZnJhbWUKcTcgPC0gZGF0YS5mcmFtZShzdnl0YWJsZSh+UTdfcSArIFE3X3IgKyBQUEdFTkRFUiArIHBwYWdlY2F0ICsgUFBFVEhNICsgUFBJTkNJTVAgKwogICAgICAgICAgICAgICAgICAgICAgICAgICAgUFBFRFVDICsgUFBFRFVDQVQgKyB3b3JrICsgUFBXT1JLLCBkZXM3LCByb3VuZCA9IFQpKQojIHBsb3QgdGVtcGxhdGVzCnRpdGxlIDwtIGdndGl0bGUoIldoYXQgdHlwZXMgb2YgcHVibGljIHRyYW5zcG9ydGF0aW9uIGRvIHlvdSByZWd1bGFybHkgdXNlPyIpCgojIyBtYWluIHBsb3QKcCA8LSBnZ3Bsb3QocTcsIGFlcyhRN19xLCB3ZWlnaHQgPSBGcmVxKSkgKyBwdGV4dApwICsgZ2VvbV9iYXIoKSArIHRpdGxlCgpgYGAKCmBgYHtyIHE3LXBsb3QtMWJ9CiMjIHBsb3QyOiBleGNsdWRlICdPdGhlcicgY29sdW1uCnAyIDwtIGdncGxvdChxN1shKHE3JFE3X3EpPT0nT3RoZXInLCBdLCBhZXMoUTdfcSwgd2VpZ2h0ID0gRnJlcSkpICsgcHRleHQKCiMgYnkgZ2VuZGVyCnAyICsgZ2VvbV9iYXIoKSArIGFlcyhQUEdFTkRFUiwgZmlsbCA9IFBQR0VOREVSKSArIGZhY2V0X3dyYXAoflE3X3EpICsgZ2d0aXRsZSgiQnkgZ2VuZGVyIikKCiMgYWdlIGJveHBsb3QKc3Z5Ym94cGxvdChQUEFHRX5RN19xLCBkZXM3LCBtYWluID0gIkFnZSBib3hwbG90IHBlciByZXNwb25zZSIpCgojIGJ5IGFnZSBncm91cApwMiArIGdlb21fYmFyKCkgKyBhZXMocHBhZ2VjYXQsIGZpbGwgPSBwcGFnZWNhdCkgKyBmYWNldF93cmFwKH5RN19xKSArIGdndGl0bGUoIkJ5IGFnZSBncm91cCIpCnAyICsgZ2VvbV9iYXIocG9zaXRpb24gPSAiZmlsbCIpICsgYWVzKHBwYWdlY2F0LCBmaWxsID0gUTdfcSkKCiMgYnkgZXRobmljIGdyb3VwCnAgKyBnZW9tX2JhcigpICsgYWVzKFBQRVRITSwgZmlsbCA9IFBQRVRITSkgKyBmYWNldF93cmFwKH5RN19xKSArIGdndGl0bGUoIkJ5IGV0aG5pYyBncm91cCIpICsKICBwdGV4dDIKcCArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhQUEVUSE0sIGZpbGwgPSBRN19xKQpwICsgZ2VvbV9iYXIoKSArIGFlcyhmaWxsID0gUTdfcSkgKyBmYWNldF93cmFwKH5QUEVUSE0pICsgZ2d0aXRsZSgiQnkgZXRobmljIGdyb3VwIikKcCArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhmaWxsID0gUFBFVEhNKQoKIyBieSBpbmNvbWUKcCArIGdlb21fYmFyKCkgKyBhZXMoUFBJTkNJTVAsIGZpbGwgPSBQUElOQ0lNUCkgKyBmYWNldF93cmFwKH5RN19xKSArIGdndGl0bGUoIkJ5IGluY29tZSIpICsgCiAgcHRleHQyCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoUFBJTkNJTVAsIGZpbGwgPSBRN19xKQoKIyBieSBlZHVjYXRpb24KcCArIGdlb21fYmFyKCkgKyBhZXMoUFBFRFVDQVQsIGZpbGwgPSBQUEVEVUNBVCkgKyBmYWNldF93cmFwKH5RN19xKSArIGdndGl0bGUoIkJ5IGVkdWNhdGlvbiIpCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoUFBFRFVDQVQsIGZpbGwgPSBRN19xKQpwICsgZ2VvbV9iYXIocG9zaXRpb24gPSAiZmlsbCIpICsgYWVzKFBQRURVQywgZmlsbCA9IFE3X3EpCnAgKyBnZW9tX2JhcigpICsgYWVzKGZpbGwgPSBRN19xKSArIGZhY2V0X3dyYXAoflBQRURVQ0FUKSArIGdndGl0bGUoIkJ5IGVkdWNhdGlvbiIpCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoZmlsbCA9IFBQRURVQ0FUKQoKIyBieSB3b3JrIHN0YXR1cwpwICsgZ2VvbV9iYXIoKSArIGFlcyh3b3JrLCBmaWxsID0gd29yaykgKyBmYWNldF93cmFwKH5RN19xKSArIGdndGl0bGUoIkJ5IGVtcGxveW1lbnQgc3RhdHVzIikKcCArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhQUFdPUkssIGZpbGwgPSBRN19xKSArIGdndGl0bGUoIkJ5IGVtcGxveW1lbnQgc3RhdHVzIikKCmBgYAoKIyMjIE1hcml0YWwgc3RhdHVzLCBtZXRybyBzdGF0dXMsIHJlZ2lvbiwgc3RhdGUgb2YgcmVzaWRlbmN5LCBob3VzZSB0eXBlLCBob3VzaW5nIHN0YXR1cywgaW50ZXJuZXQgYXZhaWxhYmlsaXR5CgpgYGB7ciBxNy1wbG90LTJ9CiMgdXBkYXRlIHdlaWdodGVkIGRhdGEgZnJhbWUKcTcuMiA8LSBkYXRhLmZyYW1lKHN2eXRhYmxlKH5RN19xICsgUTdfciArIG1hcml0YWwgKyBQUE1BUklUICsgUFBNU0FDQVQgKyBwcHJlZzkgKwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBQUFNUQVRFTiArIFBQSE9VU0UgKyBQUFJFTlQgKyBQUE5FVCwgZGVzNywgcm91bmQgPSBUKSkKCiMgcmVzdGF0ZSBwbG90cwpwMyA8LSBnZ3Bsb3QocTcuMiwgYWVzKFE3X3EsIHdlaWdodCA9IEZyZXEpKSArIHB0ZXh0CnA0IDwtIGdncGxvdChxNy4yWyEocTcuMiRRN19xKT09J090aGVyJywgXSwgYWVzKFE3X3EsIHdlaWdodCA9IEZyZXEpKSArIHB0ZXh0CgpgYGAKCmBgYHtyIHE3LXBsb3QtMmJ9CiMgYnkgbWFyaXRhbCBzdGF0dXMKcDMgKyBnZW9tX2JhcigpICsgYWVzKG1hcml0YWwsIGZpbGwgPSBtYXJpdGFsKSArIGZhY2V0X3dyYXAoflE3X3EpICsgZ2d0aXRsZSgiQnkgbWFyaXRhbCBzdGF0dXMiKQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhtYXJpdGFsLCBmaWxsID0gUTdfcSkKcDMgKyBnZW9tX2JhcigpICsgYWVzKFBQTUFSSVQsIGZpbGwgPSBQUE1BUklUKSArIGZhY2V0X3dyYXAoflE3X3EpCnAzICsgZ2VvbV9iYXIoKSArIGFlcyhQUE1BUklULCBmaWxsID0gUTdfcSkgKyBnZ3RpdGxlKCJCeSBtYXJpdGFsIHN0YXR1cyIpCgojIGJ5IG1ldHJvIHN0YXR1cwpwMyArIGdlb21fYmFyKCkgKyBhZXMoUFBNU0FDQVQsIGZpbGwgPSBQUE1TQUNBVCkgKyBmYWNldF93cmFwKH5RN19xKSArIGdndGl0bGUoIkJ5IG1ldHJvIHN0YXR1cyIpCnAzICsgZ2VvbV9iYXIocG9zaXRpb24gPSAic3RhY2siKSArIGFlcyhmaWxsID0gUFBNU0FDQVQpCnAzICsgZ2VvbV9iYXIoKSArIGFlcyhmaWxsID0gUFBNU0FDQVQpICsgZmFjZXRfd3JhcCh+UFBNU0FDQVQpCgojIGJ5IHJlZ2lvbgpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gJ2ZpbGwnKSArIGFlcyhmaWxsID0gcHByZWc5KSArIGdndGl0bGUoIlJlc3BvbnNlcyBieSBVUyByZWdpb24iKQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gJ2ZpbGwnKSArIGFlcyhwcHJlZzksIGZpbGwgPSBRN19xKSArIGdndGl0bGUoIlVTIHJlZ2lvbnMgYnkgcmVzcG9uc2UiKQoKIyBieSBzdGF0ZQpwMyArIGdlb21fYmFyKCkgKyBhZXMoUFBTVEFURU4sIGZpbGwgPSBRN19xKSArIGNvb3JkX2ZsaXAoKSArIGdndGl0bGUoIkJ5IHN0YXRlIikKcDMgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICdmaWxsJykgKyBhZXMoUFBTVEFURU4sIGZpbGwgPSBRN19xKSArIGNvb3JkX2ZsaXAoKSArIGdndGl0bGUoIkJ5IHN0YXRlIikKCiMgYnkgaG91c2UgdHlwZQpwMyArIGdlb21fYmFyKCkgKyBhZXMoZmlsbCA9IFBQSE9VU0UpICsgZ2d0aXRsZSgiQnkgaG91c2UgdHlwZSIpCnAzICsgZ2VvbV9iYXIocG9zaXRpb24gPSAnZmlsbCcpICsgYWVzKGZpbGwgPSBQUEhPVVNFKQpwMyArIGdlb21fYmFyKCkgKyBhZXMoUFBIT1VTRSwgZmlsbCA9IFBQSE9VU0UpICsgZmFjZXRfd3JhcCh+UTdfcSkgKyBwdGV4dDIKCiMgYnkgaG91c2luZyBzdGF0dXMKCiMgYnkgaW50ZXJuZXQgYXZhaWxhYmlsaXR5CnAzICsgZ2VvbV9iYXIocG9zaXRpb24gPSAiZmlsbCIpICsgYWVzKGZpbGwgPSBQUE5FVCkgKyBnZ3RpdGxlKCJJbnRlcm5ldCBzdGF0dXMiKQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gJ2ZpbGwnKSArIGFlcyhQUE5FVCwgZmlsbCA9IFE3X3EpICsgZ2d0aXRsZSgiSW50ZXJuZXQgc3RhdHVzIikKCmBgYAoKCgojIyBROC4gRm9yIHdoYXQgdHlwZXMgb2YgYWN0aXZpdGllcyBkbyB5b3UgcmVndWxhcmx5IHVzZSBwdWJsaWMgdHJhbnNwb3J0YXRpb24/CgpgYGB7ciBxOC1kYXRhfQojIHN1YnNldCBxdWVzdGlvbiBkYXRhLCByZW5hbWUgY29sdW1ucywgZ2F0aGVyIGludG8gc2luZ2xlIGNvbHVtbgpxOF9kZiA8LSBkZiAlPiUKICBzZWxlY3QoQ2FzZUlELCBQUEdFTkRFUiwgUFBBR0UsIHBwYWdlY2F0LCBQUEVUSE0sIFBQSU5DSU1QLCBQUEVEVUMsIFBQRURVQ0FULAogICAgICAgICB3b3JrLCBQUFdPUkssIG1hcml0YWwsIFBQTUFSSVQsIFBQTVNBQ0FULCBwcHJlZzksIFBQU1RBVEVOLCBQUEhPVVNFLCBQUFJFTlQsIFBQTkVULAogICAgICAgICBROF8xOlE4XzYsIHdlaWdodCkgJT4lCiAgcmVuYW1lKFdvcmsgPSBROF8xLCBTY2hvb2wgPSBROF8yLCBTaG9wcGluZyA9IFE4XzMsIFZpc2l0aW5nX3Blb3BsZSA9IFE4XzQsCiAgICAgICAgIFJlY3JlYXRpb24gPSBROF81LCBPdGhlciA9IFE4XzYpICU+JQogIGdhdGhlcihROF9xLCBROF9yLCBXb3JrOk90aGVyLCBuYS5ybSA9IFQpICU+JQogIG11dGF0ZShROF9xID0gYXMuZmFjdG9yKFE4X3EpKQoKIyBzZWxlY3Qgb25seSBZZXMgcmVzcG9uc2VzCnE4X2RmIDwtIHE4X2RmW3E4X2RmJFE4X3IgPT0gJ1llcycsIF0KCiMgc3VydmV5IGRlc2lnbgpvcHRpb25zKGRpZ2l0cyA9IDQpCm9wdGlvbnMoc3VydmV5LmxvbmVseS5wc3UgPSAiYWRqdXN0IikKZGVzOCA8LSBzdnlkZXNpZ24oaWRzID0gfjEsIHdlaWdodHMgPSB+d2VpZ2h0LCBkYXRhID0gcThfZGZbaXMubmEocThfZGYkd2VpZ2h0KT09RiwgXSkKCmBgYAoKIyMjIEdlbmRlciwgYWdlLCBldGhuaWNpdHksIGluY29tZSwgZWR1Y2F0aW9uCgpgYGB7ciBxOC1wbG90LTF9CiMgd2VpZ2h0ZWQgZGF0YSBmcmFtZQpxOCA8LSBkYXRhLmZyYW1lKHN2eXRhYmxlKH5ROF9xICsgUThfciArIFBQR0VOREVSICsgcHBhZ2VjYXQgKyBQUEVUSE0gKyBQUElOQ0lNUCArIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgUFBFRFVDICsgUFBFRFVDQVQgKyB3b3JrICsgUFBXT1JLLCBkZXM4LCByb3VuZCA9IFQpKQojIHBsb3QgdGVtcGxhdGVzCnRpdGxlIDwtIGdndGl0bGUoIkZvciB3aGF0IHR5cGVzIG9mIGFjdGl2aXRpZXMgZG8geW91IHJlZ3VsYXJseSB1c2UgcHVibGljIHRyYW5zcG9ydGF0aW9uPyIpCgojIyBtYWluIHBsb3QKcCA8LSBnZ3Bsb3QocTgsIGFlcyhROF9xLCB3ZWlnaHQgPSBGcmVxKSkgKyBwdGV4dApwICsgZ2VvbV9iYXIoKSArIHRpdGxlCgpgYGAKCmBgYHtyIHE4LXBsb3QtMWJ9CiMjIHBsb3QyOiBleGNsdWRlICdPdGhlcicgY29sdW1uCnAyIDwtIGdncGxvdChxOFshKHE4JFE4X3EpPT0nT3RoZXInLCBdLCBhZXMoUThfcSwgd2VpZ2h0ID0gRnJlcSkpICsgcHRleHQKCiMgYnkgZ2VuZGVyCnAyICsgZ2VvbV9iYXIoKSArIGFlcyhQUEdFTkRFUiwgZmlsbCA9IFBQR0VOREVSKSArIGZhY2V0X3dyYXAoflE4X3EpICsgZ2d0aXRsZSgiQnkgZ2VuZGVyIikKCiMgYWdlIGJveHBsb3QKc3Z5Ym94cGxvdChQUEFHRX5ROF9xLCBkZXM4LCBtYWluID0gIkFnZSBib3hwbG90IHBlciByZXNwb25zZSIpCgojIGJ5IGFnZSBncm91cApwMiArIGdlb21fYmFyKCkgKyBhZXMocHBhZ2VjYXQsIGZpbGwgPSBwcGFnZWNhdCkgKyBmYWNldF93cmFwKH5ROF9xKSArIGdndGl0bGUoIkJ5IGFnZSBncm91cCIpCnAyICsgZ2VvbV9iYXIocG9zaXRpb24gPSAiZmlsbCIpICsgYWVzKHBwYWdlY2F0LCBmaWxsID0gUThfcSkKCiMgYnkgZXRobmljIGdyb3VwCnAgKyBnZW9tX2JhcigpICsgYWVzKFBQRVRITSwgZmlsbCA9IFBQRVRITSkgKyBmYWNldF93cmFwKH5ROF9xKSArIGdndGl0bGUoIkJ5IGV0aG5pYyBncm91cCIpICsKICBwdGV4dDIKcCArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhQUEVUSE0sIGZpbGwgPSBROF9xKQpwICsgZ2VvbV9iYXIoKSArIGFlcyhmaWxsID0gUThfcSkgKyBmYWNldF93cmFwKH5QUEVUSE0pICsgZ2d0aXRsZSgiQnkgZXRobmljIGdyb3VwIikKcCArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhmaWxsID0gUFBFVEhNKQoKIyBieSBpbmNvbWUKcCArIGdlb21fYmFyKCkgKyBhZXMoUFBJTkNJTVAsIGZpbGwgPSBQUElOQ0lNUCkgKyBmYWNldF93cmFwKH5ROF9xKSArIGdndGl0bGUoIkJ5IGluY29tZSIpICsgCiAgcHRleHQyCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoUFBJTkNJTVAsIGZpbGwgPSBROF9xKQoKIyBieSBlZHVjYXRpb24KcCArIGdlb21fYmFyKCkgKyBhZXMoUFBFRFVDQVQsIGZpbGwgPSBQUEVEVUNBVCkgKyBmYWNldF93cmFwKH5ROF9xKSArIGdndGl0bGUoIkJ5IGVkdWNhdGlvbiIpCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoUFBFRFVDQVQsIGZpbGwgPSBROF9xKQpwICsgZ2VvbV9iYXIocG9zaXRpb24gPSAiZmlsbCIpICsgYWVzKFBQRURVQywgZmlsbCA9IFE4X3EpCnAgKyBnZW9tX2JhcigpICsgYWVzKGZpbGwgPSBROF9xKSArIGZhY2V0X3dyYXAoflBQRURVQ0FUKSArIGdndGl0bGUoIkJ5IGVkdWNhdGlvbiIpCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoZmlsbCA9IFBQRURVQ0FUKQoKIyBieSB3b3JrIHN0YXR1cwpwICsgZ2VvbV9iYXIoKSArIGFlcyh3b3JrLCBmaWxsID0gd29yaykgKyBmYWNldF93cmFwKH5ROF9xKSArIGdndGl0bGUoIkJ5IGVtcGxveW1lbnQgc3RhdHVzIikKcCArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhQUFdPUkssIGZpbGwgPSBROF9xKSArIGdndGl0bGUoIkJ5IGVtcGxveW1lbnQgc3RhdHVzIikKYGBgCgojIyMgTWFyaXRhbCBzdGF0dXMsIG1ldHJvIHN0YXR1cywgcmVnaW9uLCBzdGF0ZSBvZiByZXNpZGVuY3ksIGhvdXNlIHR5cGUsIGhvdXNpbmcgc3RhdHVzLCBpbnRlcm5ldCBhdmFpbGFiaWxpdHkKCmBgYHtyIHE4LXBsb3QtMn0KIyB3ZWlnaHRlZCBkYXRhIGZyYW1lCnE4LjIgPC0gZGF0YS5mcmFtZShzdnl0YWJsZSh+UThfcSArIFE4X3IgKyB3b3JrICsgbWFyaXRhbCArIFBQTUFSSVQgKyBQUE1TQUNBVCArIHBwcmVnOSArCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFBQU1RBVEVOICsgUFBIT1VTRSArIFBQUkVOVCArIFBQTkVULCBkZXM4LCByb3VuZCA9IFQpKQojIHJlc3RhdGUgcGxvdHMKcDMgPC0gZ2dwbG90KHE4LjIsIGFlcyhROF9xLCB3ZWlnaHQgPSBGcmVxKSkgKyBwdGV4dApwNCA8LSBnZ3Bsb3QocTguMlshKHE4LjIkUThfcSk9PSdPdGhlcicsIF0sIGFlcyhROF9xLCB3ZWlnaHQgPSBGcmVxKSkgKyBwdGV4dAoKYGBgCgpgYGB7ciBxOC1wbG90LTJifQojIGJ5IG1hcml0YWwgc3RhdHVzCnAzICsgZ2VvbV9iYXIoKSArIGFlcyhtYXJpdGFsLCBmaWxsID0gbWFyaXRhbCkgKyBmYWNldF93cmFwKH5ROF9xKSArIGdndGl0bGUoIkJ5IG1hcml0YWwgc3RhdHVzIikKcDMgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMobWFyaXRhbCwgZmlsbCA9IFE4X3EpCnAzICsgZ2VvbV9iYXIoKSArIGFlcyhQUE1BUklULCBmaWxsID0gUFBNQVJJVCkgKyBmYWNldF93cmFwKH5ROF9xKQpwMyArIGdlb21fYmFyKCkgKyBhZXMoUFBNQVJJVCwgZmlsbCA9IFE4X3EpICsgZ2d0aXRsZSgiQnkgbWFyaXRhbCBzdGF0dXMiKQoKIyBieSBtZXRybyBzdGF0dXMKcDMgKyBnZW9tX2JhcigpICsgYWVzKFBQTVNBQ0FULCBmaWxsID0gUFBNU0FDQVQpICsgZmFjZXRfd3JhcCh+UThfcSkgKyBnZ3RpdGxlKCJCeSBtZXRybyBzdGF0dXMiKQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gInN0YWNrIikgKyBhZXMoZmlsbCA9IFBQTVNBQ0FUKQpwMyArIGdlb21fYmFyKCkgKyBhZXMoZmlsbCA9IFBQTVNBQ0FUKSArIGZhY2V0X3dyYXAoflBQTVNBQ0FUKQoKIyBieSByZWdpb24KcDMgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICdmaWxsJykgKyBhZXMoZmlsbCA9IHBwcmVnOSkgKyBnZ3RpdGxlKCJSZXNwb25zZXMgYnkgVVMgcmVnaW9uIikKcDMgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICdmaWxsJykgKyBhZXMocHByZWc5LCBmaWxsID0gUThfcSkgKyBnZ3RpdGxlKCJVUyByZWdpb25zIGJ5IHJlc3BvbnNlIikKCiMgYnkgc3RhdGUKcDMgKyBnZW9tX2JhcigpICsgYWVzKFBQU1RBVEVOLCBmaWxsID0gUThfcSkgKyBjb29yZF9mbGlwKCkgKyBnZ3RpdGxlKCJCeSBzdGF0ZSIpCnAzICsgZ2VvbV9iYXIocG9zaXRpb24gPSAnZmlsbCcpICsgYWVzKFBQU1RBVEVOLCBmaWxsID0gUThfcSkgKyBjb29yZF9mbGlwKCkgKyBnZ3RpdGxlKCJCeSBzdGF0ZSIpCgojIGJ5IGhvdXNlIHR5cGUKcDMgKyBnZW9tX2JhcigpICsgYWVzKGZpbGwgPSBQUEhPVVNFKSArIGdndGl0bGUoIkJ5IGhvdXNlIHR5cGUiKQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gJ2ZpbGwnKSArIGFlcyhmaWxsID0gUFBIT1VTRSkKcDMgKyBnZW9tX2JhcigpICsgYWVzKFBQSE9VU0UsIGZpbGwgPSBQUEhPVVNFKSArIGZhY2V0X3dyYXAoflE4X3EpICsgcHRleHQyCgojIGJ5IGhvdXNpbmcgc3RhdHVzCgojIGJ5IGludGVybmV0IGF2YWlsYWJpbGl0eQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhmaWxsID0gUFBORVQpICsgZ2d0aXRsZSgiSW50ZXJuZXQgc3RhdHVzIikKcDMgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICdmaWxsJykgKyBhZXMoUFBORVQsIGZpbGwgPSBROF9xKSArIGdndGl0bGUoIkludGVybmV0IHN0YXR1cyIpCmBgYAoKCgojIyBROS4gRG8gb3RoZXIgbWVtYmVycyBvZiB5b3VyIGhvdXNlaG9sZCByZWd1bGFybHkgdXNlIHB1YmxpYyB0cmFuc3BvcnRhdGlvbj8KCiMjIyBFdGhuaWNpdHksIGluY29tZSwgbWV0cm8gc3RhdHVzLCByZWdpb24sIHN0YXRlLCBob3VzZSB0eXBlLCBob3VzaW5nIHN0YXR1cwoKYGBge3IgcTktcGxvdC0xfQojIHdlaWdodGVkIGRhdGEgZnJhbWUKcTkgPC0gZGF0YS5mcmFtZShzdnl0YWJsZSh+UTkgKyBQUEVUSE0gKyBQUElOQ0lNUCArIFBQTVNBQ0FUICsgcHByZWc5ICsgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBQUFNUQVRFTiArIFBQSE9VU0UgKyBQUFJFTlQsIGRlcywgcm91bmQgPSBUKSkKIyBwbG90IHRlbXBsYXRlcwp0aXRsZSA8LSBnZ3RpdGxlKCJEbyBvdGhlciBtZW1iZXJzIG9mIHlvdXIgaG91c2Vob2xkIHJlZ3VsYXJseSB1c2UgcHVibGljIHRyYW5zcG9ydGF0aW9uPyIpCgojIyBtYWluIHBsb3QKcCA8LSBnZ3Bsb3QocTksIGFlcyhROSwgd2VpZ2h0ID0gRnJlcSkpICsgcHRleHQKcCArIGdlb21fYmFyKCkgKyB0aXRsZQpgYGAKCmBgYHtyIHE5LXBsb3QtMWJ9CiMjIHBsb3QyOiBleGNsdWRlICdEb25fdCBrbm93JyBjb2x1bW4KcDIgPC0gZ2dwbG90KHE5WyEocTkkUTkpPT0nRG9uX3Qga25vdycsIF0sIGFlcyhROSwgd2VpZ2h0ID0gRnJlcSkpICsgcHRleHQKCiMgYnkgZXRobmljIGdyb3VwCnAyICsgZ2VvbV9iYXIoKSArIGFlcyhmaWxsID0gUFBFVEhNKSArIGdndGl0bGUoIkJ5IGV0aG5pYyBncm91cCIpICsgcHRleHQyCnAyICsgZ2VvbV9iYXIocG9zaXRpb24gPSAiZmlsbCIpICsgYWVzKFBQRVRITSwgZmlsbCA9IFE5KQpwMiArIGdlb21fYmFyKCkgKyBhZXMoZmlsbCA9IFE5KSArIGZhY2V0X3dyYXAoflBQRVRITSkgKyBnZ3RpdGxlKCJCeSBldGhuaWMgZ3JvdXAiKQpwMiArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhmaWxsID0gUFBFVEhNKQoKIyBieSBpbmNvbWUKcDIgKyBnZW9tX2JhcigpICsgYWVzKGZpbGwgPSBQUElOQ0lNUCkgKyBnZ3RpdGxlKCJCeSBpbmNvbWUiKSArIHB0ZXh0MgpwMiArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhQUElOQ0lNUCwgZmlsbCA9IFE5KQoKIyBieSBtZXRybyBzdGF0dXMKcDIgKyBnZW9tX2JhcigpICsgYWVzKGZpbGwgPSBQUE1TQUNBVCkgKyBnZ3RpdGxlKCJCeSBtZXRybyBzdGF0dXMiKQpwMiArIGdlb21fYmFyKHBvc2l0aW9uID0gInN0YWNrIikgKyBhZXMoUFBNU0FDQVQsIGZpbGwgPSBROSkKCiMgYnkgcmVnaW9uCnAyICsgZ2VvbV9iYXIocG9zaXRpb24gPSAnZmlsbCcpICsgYWVzKGZpbGwgPSBwcHJlZzkpICsgZ2d0aXRsZSgiUmVzcG9uc2VzIGJ5IFVTIHJlZ2lvbiIpCnAyICsgZ2VvbV9iYXIocG9zaXRpb24gPSAnZmlsbCcpICsgYWVzKHBwcmVnOSwgZmlsbCA9IFE5KSArIGdndGl0bGUoIlVTIHJlZ2lvbnMgYnkgcmVzcG9uc2UiKQoKIyBieSBzdGF0ZQpwMiArIGdlb21fYmFyKCkgKyBhZXMoUFBTVEFURU4sIGZpbGwgPSBROSkgKyBjb29yZF9mbGlwKCkgKyBnZ3RpdGxlKCJCeSBzdGF0ZSIpCnAyICsgZ2VvbV9iYXIocG9zaXRpb24gPSAnZmlsbCcpICsgYWVzKFBQU1RBVEVOLCBmaWxsID0gUTkpICsgY29vcmRfZmxpcCgpICsgZ2d0aXRsZSgiQnkgc3RhdGUiKQoKIyBieSBob3VzZSB0eXBlCnAyICsgZ2VvbV9iYXIoKSArIGFlcyhmaWxsID0gUFBIT1VTRSkgKyBnZ3RpdGxlKCJCeSBob3VzaW5nIikKcDIgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICdmaWxsJykgKyBhZXMoZmlsbCA9IFBQSE9VU0UpCnAyICsgZ2VvbV9iYXIoKSArIGFlcyhQUEhPVVNFLCBmaWxsID0gUTkpICsgcHRleHQyCgojIGJ5IGhvdXNpbmcgc3RhdHVzCgpgYGAKCgoKIyMgUTEwLiBXaGF0IHR5cGVzIG9mIHB1YmxpYyB0cmFuc3BvcnRhdGlvbiBkbyBvdGhlciBtZW1iZXJzIG9mIHlvdXIgaG91c2Vob2xkIHJlZ3VsYXJseSB1c2U/CgpgYGB7ciBxMTAtZGF0YX0KIyBzdWJzZXQgcXVlc3Rpb24gZGF0YSwgcmVuYW1lIGNvbHVtbnMsIGdhdGhlciBpbnRvIHNpbmdsZSBjb2x1bW4KcTEwX2RmIDwtIGRmICU+JQogIHNlbGVjdChDYXNlSUQsIFBQR0VOREVSLCBQUEFHRSwgcHBhZ2VjYXQsIFBQRVRITSwgUFBJTkNJTVAsIFBQRURVQywgUFBFRFVDQVQsCiAgICAgICAgIHdvcmssIFBQV09SSywgbWFyaXRhbCwgUFBNQVJJVCwgUFBNU0FDQVQsIHBwcmVnOSwgUFBTVEFURU4sIFBQSE9VU0UsIFBQUkVOVCwgUFBORVQsCiAgICAgICBRMTBfMTpRMTBfOCwgd2VpZ2h0KSAlPiUKICByZW5hbWUoQnVzID0gUTEwXzEsIENhcnBvb2wgPSBRMTBfMiwgU3Vid2F5ID0gUTEwXzMsIFRyYWluID0gUTEwXzQsCiAgICAgICAgIFRheGkgPSBRMTBfNSwgQWlycGxhbmUgPSBRMTBfNiwgRG9uX3Rfa25vdyA9IFExMF83LCBPdGhlciA9IFExMF84KSAlPiUKICBnYXRoZXIoUTEwX3EsIFExMF9yLCBCdXM6T3RoZXIsIG5hLnJtID0gVCkgJT4lCiAgbXV0YXRlKFExMF9xID0gYXMuZmFjdG9yKFExMF9xKSkKCiMgc2VsZWN0IG9ubHkgWWVzIHJlc3BvbnNlcwpxMTBfZGYgPC0gcTEwX2RmW3ExMF9kZiRRMTBfciA9PSAnWWVzJywgXQoKIyBzdXJ2ZXkgZGVzaWduCm9wdGlvbnMoZGlnaXRzID0gNCkKb3B0aW9ucyhzdXJ2ZXkubG9uZWx5LnBzdSA9ICJhZGp1c3QiKQpkZXMxMCA8LSBzdnlkZXNpZ24oaWRzID0gfjEsIHdlaWdodHMgPSB+d2VpZ2h0LCBkYXRhID0gcTEwX2RmW2lzLm5hKHExMF9kZiR3ZWlnaHQpPT1GLCBdKQpgYGAKCiMjIyBHZW5kZXIsIGFnZSwgZXRobmljaXR5LCBpbmNvbWUsIGVkdWNhdGlvbiwgd29yawoKYGBge3IgcTEwLXBsb3QtMX0KIyB3ZWlnaHRlZCBkYXRhIGZyYW1lCnExMCA8LSBkYXRhLmZyYW1lKHN2eXRhYmxlKH5RMTBfcSArIFExMF9yICsgUFBHRU5ERVIgKyBwcGFnZWNhdCArIFBQRVRITSArIFBQSU5DSU1QICsKICAgICAgICAgICAgICAgICAgICAgICAgICAgIFBQRURVQyArIFBQRURVQ0FUICsgd29yayArIFBQV09SSywgZGVzMTAsIHJvdW5kID0gVCkpCiMgcGxvdCB0ZW1wbGF0ZXMKdGl0bGUgPC0gZ2d0aXRsZSgiV2hhdCB0eXBlcyBvZiBwdWJsaWMgdHJhbnNwb3J0YXRpb24gZG8gb3RoZXIgbWVtYmVycyBvZiB5b3VyIGhvdXNlaG9sZCByZWd1bGFybHkgdXNlPyIpCgojIyBtYWluIHBsb3QKcCA8LSBnZ3Bsb3QocTEwLCBhZXMoUTEwX3EsIHdlaWdodCA9IEZyZXEpKSArIHB0ZXh0CnAgKyBnZW9tX2JhcigpICsgdGl0bGUKYGBgCgpgYGB7ciBxMTAtcGxvdC0xYn0KIyMgcGxvdDI6IGV4Y2x1ZGUgJ0Rvbl90IGtub3cnIGNvbHVtbgpwMiA8LSBnZ3Bsb3QocTEwWyEocTEwJFExMF9xKT09J0Rvbl90X2tub3cnLCBdLCBhZXMoUTEwX3EsIHdlaWdodCA9IEZyZXEpKSArIHB0ZXh0CgojIGJ5IGdlbmRlcgpwMiArIGdlb21fYmFyKCkgKyBhZXMoUFBHRU5ERVIsIGZpbGwgPSBQUEdFTkRFUikgKyBmYWNldF93cmFwKH5RMTBfcSkgKyBnZ3RpdGxlKCJCeSBnZW5kZXIiKQoKIyBieSBhZ2UgZ3JvdXAKcDIgKyBnZW9tX2JhcigpICsgYWVzKHBwYWdlY2F0LCBmaWxsID0gcHBhZ2VjYXQpICsgZmFjZXRfd3JhcCh+UTEwX3EpICsgZ2d0aXRsZSgiQnkgYWdlIGdyb3VwIikKcDIgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMocHBhZ2VjYXQsIGZpbGwgPSBRMTBfcSkKCiMgYnkgZXRobmljIGdyb3VwCnAgKyBnZW9tX2JhcigpICsgYWVzKFBQRVRITSwgZmlsbCA9IFBQRVRITSkgKyBmYWNldF93cmFwKH5RMTBfcSkgKyBnZ3RpdGxlKCJCeSBldGhuaWMgZ3JvdXAiKSArCiAgcHRleHQyCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoUFBFVEhNLCBmaWxsID0gUTEwX3EpCnAgKyBnZW9tX2JhcigpICsgYWVzKGZpbGwgPSBRMTBfcSkgKyBmYWNldF93cmFwKH5QUEVUSE0pICsgZ2d0aXRsZSgiQnkgZXRobmljIGdyb3VwIikKcCArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhmaWxsID0gUFBFVEhNKQoKIyBieSBpbmNvbWUKcCArIGdlb21fYmFyKCkgKyBhZXMoUFBJTkNJTVAsIGZpbGwgPSBQUElOQ0lNUCkgKyBmYWNldF93cmFwKH5RMTBfcSkgKyBnZ3RpdGxlKCJCeSBpbmNvbWUiKSArIAogIHB0ZXh0MgpwICsgZ2VvbV9iYXIocG9zaXRpb24gPSAiZmlsbCIpICsgYWVzKFBQSU5DSU1QLCBmaWxsID0gUTEwX3EpCgojIGJ5IGVkdWNhdGlvbgpwICsgZ2VvbV9iYXIoKSArIGFlcyhQUEVEVUNBVCwgZmlsbCA9IFBQRURVQ0FUKSArIGZhY2V0X3dyYXAoflExMF9xKSArIGdndGl0bGUoIkJ5IGVkdWNhdGlvbiIpCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoUFBFRFVDQVQsIGZpbGwgPSBRMTBfcSkKcCArIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArIGFlcyhQUEVEVUMsIGZpbGwgPSBRMTBfcSkKcCArIGdlb21fYmFyKCkgKyBhZXMoZmlsbCA9IFExMF9xKSArIGZhY2V0X3dyYXAoflBQRURVQ0FUKSArIGdndGl0bGUoIkJ5IGVkdWNhdGlvbiIpCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoZmlsbCA9IFBQRURVQ0FUKQoKIyBieSB3b3JrIHN0YXR1cwpwICsgZ2VvbV9iYXIoKSArIGFlcyh3b3JrLCBmaWxsID0gd29yaykgKyBmYWNldF93cmFwKH5RMTBfcSkgKyBnZ3RpdGxlKCJCeSBlbXBsb3ltZW50IHN0YXR1cyIpCnAgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJmaWxsIikgKyBhZXMoUFBXT1JLLCBmaWxsID0gUTEwX3EpICsgZ2d0aXRsZSgiQnkgZW1wbG95bWVudCBzdGF0dXMiKQpgYGAKCiMjIyBNYXJpdGFsIHN0YXR1cywgbWV0cm8gc3RhdHVzLCByZWdpb24sIHN0YXRlIG9mIHJlc2lkZW5jeSwgaG91c2UgdHlwZSwgaG91c2luZyBzdGF0dXMsIGludGVybmV0IGF2YWlsYWJpbGl0eQoKYGBge3IgcTEwLXBsb3QtMn0KIyB1cGRhdGUgd2VpZ2h0ZWQgZGF0YSBmcmFtZQpxMTAuMiA8LSBkYXRhLmZyYW1lKHN2eXRhYmxlKH5RMTBfcSArIFExMF9yICsgbWFyaXRhbCArIFBQTUFSSVQgKyBQUE1TQUNBVCArIHBwcmVnOSArCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFBQU1RBVEVOICsgUFBIT1VTRSArIFBQUkVOVCArIFBQTkVULCBkZXMxMCwgcm91bmQgPSBUKSkKIyByZXN0YXRlIHBsb3RzCnAzIDwtIGdncGxvdChxMTAuMiwgYWVzKFExMF9xLCB3ZWlnaHQgPSBGcmVxKSkgKyBwdGV4dApwNCA8LSBnZ3Bsb3QocTEwLjJbIShxMTAuMiRRMTBfcSk9PSdEb25fdF9rbm93JywgXSwgYWVzKFExMF9xLCB3ZWlnaHQgPSBGcmVxKSkgKyBwdGV4dApgYGAKCmBgYHtyIHExMC1wbG90LTJifQojIGJ5IG1hcml0YWwgc3RhdHVzCnAzICsgZ2VvbV9iYXIoKSArIGFlcyhtYXJpdGFsLCBmaWxsID0gbWFyaXRhbCkgKyBmYWNldF93cmFwKH5RMTBfcSkgKyBnZ3RpdGxlKCJCeSBtYXJpdGFsIHN0YXR1cyIpCnAzICsgZ2VvbV9iYXIocG9zaXRpb24gPSAnZmlsbCcpICsgYWVzKG1hcml0YWwsIGZpbGwgPSBRMTBfcSkKcDMgKyBnZW9tX2JhcigpICsgYWVzKFBQTUFSSVQsIGZpbGwgPSBQUE1BUklUKSArIGZhY2V0X3dyYXAoflExMF9xKQpwMyArIGdlb21fYmFyKCkgKyBhZXMoUFBNQVJJVCwgZmlsbCA9IFExMF9xKSArIGdndGl0bGUoIkJ5IG1hcml0YWwgc3RhdHVzIikKCiMgYnkgbWV0cm8gc3RhdHVzCnAzICsgZ2VvbV9iYXIoKSArIGFlcyhQUE1TQUNBVCwgZmlsbCA9IFBQTVNBQ0FUKSArIGZhY2V0X3dyYXAoflExMF9xKSArIGdndGl0bGUoIkJ5IG1ldHJvIHN0YXR1cyIpCnAzICsgZ2VvbV9iYXIocG9zaXRpb24gPSAnc3RhY2snKSArIGFlcyhmaWxsID0gUFBNU0FDQVQpCnAzICsgZ2VvbV9iYXIoKSArIGFlcyhmaWxsID0gUFBNU0FDQVQpICsgZmFjZXRfd3JhcCh+UFBNU0FDQVQpCgojIGJ5IHJlZ2lvbgpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gJ2ZpbGwnKSArIGFlcyhmaWxsID0gcHByZWc5KSArIGdndGl0bGUoIlJlc3BvbnNlcyBieSBVUyByZWdpb24iKQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gJ2ZpbGwnKSArIGFlcyhwcHJlZzksIGZpbGwgPSBRMTBfcSkgKyBnZ3RpdGxlKCJVUyByZWdpb25zIGJ5IHJlc3BvbnNlIikKCiMgYnkgc3RhdGUKcDMgKyBnZW9tX2JhcigpICsgYWVzKFBQU1RBVEVOLCBmaWxsID0gUTEwX3EpICsgY29vcmRfZmxpcCgpICsgZ2d0aXRsZSgiQnkgc3RhdGUiKQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gJ2ZpbGwnKSArIGFlcyhQUFNUQVRFTiwgZmlsbCA9IFExMF9xKSArIGNvb3JkX2ZsaXAoKSArIGdndGl0bGUoIkJ5IHN0YXRlIikKCiMgYnkgaG91c2UgdHlwZQpwMyArIGdlb21fYmFyKCkgKyBhZXMoZmlsbCA9IFBQSE9VU0UpICsgZ2d0aXRsZSgiQnkgaG91c2luZyIpCnAzICsgZ2VvbV9iYXIocG9zaXRpb24gPSAnZmlsbCcpICsgYWVzKGZpbGwgPSBQUEhPVVNFKQpwMyArIGdlb21fYmFyKCkgKyBhZXMoUFBIT1VTRSwgZmlsbCA9IFBQSE9VU0UpICsgZmFjZXRfd3JhcCh+UTEwX3EpICsgcHRleHQyCgojIGJ5IGhvdXNpbmcgc3RhdHVzCgojIGJ5IGludGVybmV0IGF2YWlsYWJpbGl0eQpwMyArIGdlb21fYmFyKHBvc2l0aW9uID0gJ2ZpbGwnKSArIGFlcyhmaWxsID0gUFBORVQpICsgZ2d0aXRsZSgiSW50ZXJuZXQgc3RhdHVzIikKcDMgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICdmaWxsJykgKyBhZXMoUFBORVQsIGZpbGwgPSBRMTBfcSkgKyBnZ3RpdGxlKCJJbnRlcm5ldCBzdGF0dXMiKQpgYGAKCgoK